unit TDIClasses;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Controls, ActnList;

type

  { TCaptions }

  TCaptions = class(TPersistent)
  private
    FMenuItem,
    FCloseTab,
    FCloseAllTabs,
    FCloseAllButThis,
    FMore,
    FOpenPagesWindow,
    FBaseForm       : TCaption;
  public
    constructor Create;
  published
    property MenuItem: TCaption read FMenuItem write FMenuItem;
    property CloseTab: TCaption read FCloseTab write FCloseTab;
    property CloseAllTabs: TCaption read FCloseAllTabs write FCloseAllTabs;
    property CloseAllButThis: TCaption read FCloseAllButThis write FCloseAllButThis;
    property MorePages: TCaption read FMore write FMore;
    property OpenPagesWindow: TCaption read FOpenPagesWindow write FOpenPagesWindow;
    property BaseForm: TCaption read FBaseForm write FBaseForm;
  end;

  { TShortCuts }

  TShortCuts = class(TPersistent)
  private
    FCloseTab,
    FCloseAllTabs,
    FCloseAllButThis: TShortCut;
   public
    constructor Create;
  published
    property CloseTab: TShortCut read FCloseTab write FCloseTab default 16499;
    property CloseAllTabs: TShortCut read FCloseAllTabs write FCloseAllTabs default 24691;
    property CloseAllButThis: TShortCut read FCloseAllButThis write FCloseAllButThis default 8307;
 end;

implementation

{ TCaptions }

constructor TCaptions.Create;
begin
  FMenuItem := '&Janelas';
  FCloseTab := 'Fechar a janela &atual';
  FCloseAllTabs := 'Fechar &todas as janelas';
  FCloseAllButThis := 'Fechar todas as janelas e&xceto a atual';
  FMore := '&Mais...';
  FOpenPagesWindow := 'Janelas abertas...';
  FBaseForm := '';
end;

{ TShortCuts }

constructor TShortCuts.Create;
begin
  FCloseTab := 16499;
  FCloseAllTabs := 24691;
  FCloseAllButThis := 8307;
end;

end.

